home *** CD-ROM | disk | FTP | other *** search
/ Windows 6-Pak - Disc 4 / Windows 6-Pak (InfoMagic) (Disc 4) (1999).ISO / 3D-Graphics-Editors / lsystem3.exe / L System 3 / _setup.1 / SIERPINS.LS < prev    next >
Text File  |  1995-12-31  |  769b  |  22 lines
  1. #╔═════════════════╤═══════════════════════════════╗
  2. #║   Sierpins.ls   │    (c) C.J. van der Mark      ║  
  3. #╟─────────────────┴───────────────────────────────╢
  4. #║      Questions about Lparser files to:          ║
  5. #║        Internet  cvdmark@xs4all.nl              ║
  6. #║           Fido      2:283/203.11                ║
  7. #╠═════════════════════════════════════════════════╣ 
  8. #║  This file produces a 3D Sierpinski gasket.     ║ 
  9. #║ Only uneven rec.levels will produce objects.    ║ 
  10. #╚═════════════════════════════════════════════════╝ 
  11. 9                           
  12. 30
  13. 1
  14. C
  15. A={[+f++++f++++f]}
  16. B=[[^(19.5)A^(70)A]>>&(19.5)A^(19.5)---&&&&f&&&&<(19.5)-A]["(.5)C]+++f---
  17. C=[BB+++^^^^f---B'(0.82)f'(1.22)---^'(0.574)f'(1.74)+++>>>>>B]+++ff---
  18. #
  19. {=_
  20. }=_
  21. @
  22.